gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\fpCheckAnswer.asp
<% dim strSQL, rsObj dim memberID, answer memberID = RealString(Request.Form("memberID")) answer = RealString(Request.Form("answer")) strSQL = "SELECT * FROM member WHERE memberID = '"&memberID&"' AND answer = '"&answer&"'" 'Response.Write strSQL 'Response.End set rsObj = conn.execute (strSQL) if rsObj.eof or err then %> <script language = Javascript> <!-- alert(" >>> 密码提示答案输入不正确 <<<\n\n如果您记不清了,请电话与我们联系以确认您的身份"); window.history.go(-1); //--> </script> <% else on error resume next Set msg = Server.CreateObject("JMail.Message") msg.silent = true msg.Logging = true msg.Charset = "gb2312" msg.MailServerUserName = "tech@trfsoft.com" '输入smtp服务器验证登陆名 (邮局中任何一个用户的Email地址) msg.MailServerPassword = "trfsoft" '输入smtp服务器验证密码 (用户Email帐号对应的密码) msg.FROM = "tech@trfsoft.com" '发件人Email msg.FromName = "特瑞飞软件" '发件人姓名 msg.AddRecipient rsObj("email") '收件人Email msg.Subject = "获取您的密码,来自"&conWebSiteName&" " '信件主题 msg.Body = "您的密码为:"&rsObj("password")&" ,您的用户名为:"&memberID&"。"&conWebSiteName&",欢迎您经常访问。请记住我们的地址:"&conWebSiteName&" " '正文 msg.Send ("mail.trfsoft.com") 'smtp服务器地址(企业邮局地址) set msg = nothing %> <TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0 width = "100%" borderColorLight = #aaaaaa border = 1 ID = "Table1"> <tr> <td colspan = "2" height = "10"></td> </tr> <tr bgcolor = "#3979C6"> <td bgcolor = "rgb(210,232,255)"> <div align = "center">密码已发送,请查收</div> </td> </tr> <tr> <td width = "42%" height = 60> <div align = "center">密码已发送,请到<%=rsObj("email")%>接收您的新邮件。</div> </td> </tr> <tr> <td> <div align = "center"> <input type = "submit" name = "Submit" value = " 关闭窗口 " onClick = "window.close()" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Submit1"> </div> </td> </tr> <tr> <td> <p>注意 </p> <p>1、请记住您的密码,为了安全与保密,请从邮箱中删除该邮件。</p> <p>2、不要把密码保存在您的计算机中。</p> <p><br> </p> </td> </tr> </table> <%end if %>